(include "sci.sh")
(use "Main")
(use "Class_255_0")
(use "Game")
(use "InvI")
(script 519)



(instance public {Ocean Region} of Rgn
    (properties)

    (method (handleEvent pEvent)
        (if ((send pEvent:claimed()))
            return 1
        )
        return 
            (if (== (send pEvent:type()) 128)
                (if (((Said('look<in/ocean,water') or Said('look<under/ocean,water')) or Said('look<in/water')) or Said('look<under/water'))
                    Print(519 0)
                )(else
                    (if (Said('look/fish'))
                        (if ((send gEgo:has(24)))
                            (send ((Inv:at(24))):showSelf())
                        )(else
                            (if (not global100)
                                Print(519 1)
                            )(else
                                Print(519 2)
                            )
                        )
                    )(else
                        (if (Said('converse/fish'))
                            (if (not global100)
                                Print(519 3)
                            )(else
                                Print(519 4)
                            )
                        )(else
                            (if (Said('chew,kill,kiss/fish'))
                                (if (not global100)
                                    Print(519 5)
                                )(else
                                    Print(519 4)
                                )
                            )(else
                                (if (Said('get,capture/fish') or Said('fish[/!*]'))
                                    Print(519 6)
                                )(else
                                    (if (Said('look/ocean,water'))
                                        Print(519 7)
                                    )(else
                                        (if (Said('look/sky'))
                                            (if (not global100)
                                                Print(519 8)
                                            )(else
                                                Print(519 9)
                                            )
                                        )(else
                                            (if (Said('bathe[/!*]'))
                                                Print(519 10)
                                            )(else
                                                (if ((Said('dive/ocean,water') or Said('dive[/!*]')) or Said('bathe<under/ocean,water'))
                                                    Print(519 11)
                                                )(else
                                                    (if (Said('get/drink') or Said('drink'))
                                                        Print(519 12)
                                                    )
                                                )
                                            )
                                        )
                                    )
                                )
                            )
                        )
                    )
                )
            )(else
                0
            )
    )

)
